home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / New System Software Extensions / Macintosh Easy Open 1.1f1 / Documentation / Developer / Interfaces / PInterfaces / Translation.p < prev    next >
Encoding:
Text File  |  1994-06-13  |  3.8 KB  |  141 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        Translation.p
  3.  
  4.      Copyright:    © 1984-1994 by Apple Computer, Inc.
  5.                  All rights reserved.
  6.  
  7.      Version:    Built by:            anonymous
  8.                  From:                Translation.i, revision 8, dated 5/31/94
  9.                  With Interfacer:    1.1d4e2
  10.  
  11.      Bugs:        Report bugs to Radar component “System Interfaces”, “Latest”
  12.                  List the version information from above in Problem Description.
  13.  
  14. }
  15.  
  16. {$IFC UNDEFINED UsingIncludes}
  17. {$SETC UsingIncludes := 0}
  18. {$ENDC}
  19.  
  20. {$IFC NOT UsingIncludes}
  21.  UNIT Translation;
  22.  INTERFACE
  23. {$ENDC}
  24.  
  25. {$IFC UNDEFINED __TRANSLATION__}
  26. {$SETC __TRANSLATION__ := 1}
  27.  
  28. {$I+}
  29. {$SETC TranslationIncludes := UsingIncludes}
  30. {$SETC UsingIncludes := 1}
  31.  
  32. {$IFC UNDEFINED REZ }
  33.  
  34. {$IFC UNDEFINED __TYPES__}
  35. {$I Types.p}
  36. {$ENDC}
  37. {    ConditionalMacros.p                                            }
  38. {    MixedMode.p                                                    }
  39. {        Traps.p                                                    }
  40.  
  41. {$IFC UNDEFINED __FILES__}
  42. {$I Files.p}
  43. {$ENDC}
  44. {    OSUtils.p                                                    }
  45. {    SegLoad.p                                                    }
  46.  
  47. {$IFC UNDEFINED __COMPONENTS__}
  48. {$I Components.p}
  49. {$ENDC}
  50.  
  51. {$IFC UNDEFINED __TRANSLATIONEXTENSIONS__}
  52. {$I TranslationExtensions.p}
  53. {$ENDC}
  54. {    Memory.p                                                    }
  55. {    Quickdraw.p                                                    }
  56. {        QuickdrawText.p                                            }
  57. {            IntlResources.p                                        }
  58. {    Components.p                                                }
  59. {$SETC gestaltTranslationPPCAvail := 2}
  60. {$SETC gestaltTranslationGetPathAPIAvail := 3}
  61.  
  62. TYPE
  63.     FileTranslationSpec = ARRAY [0..11] OF LONGINT;
  64.  
  65.     DocOpenMethod = INTEGER;
  66.  
  67.  
  68. CONST
  69.     domCannot                    = 0;
  70.     domNative                    = 1;
  71.     domTranslateFirst            = 2;
  72.     domWildcard                    = 3;
  73.  
  74.  
  75. TYPE
  76.     TypesBlock = ARRAY [0..63] OF OSType;
  77.  
  78.     TypesBlockPtr = ^OSType;
  79.  
  80. {$SETC TranslationScrapProgressDialogID := -16555}
  81.     {$ALIGN MAC68K}
  82.     TranslationSpec = PACKED RECORD
  83.         componentSignature:        OSType;
  84.         translationSystemInfo:    Ptr;
  85.         src:                    FileTypeSpec;
  86.         dst:                    FileTypeSpec;
  87.     END;
  88.     {$ALIGN RESET}
  89.     TranslationSpecArrayPtr = ^TranslationSpec;
  90.  
  91.  
  92. FUNCTION GetFileTypesThatAppCanNativelyOpen(appVRefNumHint: INTEGER; appSignature: OSType; VAR nativeTypes: FileType): OSErr;
  93.     {$IFC USES68KINLINES}
  94.     INLINE $701C, $ABFC;
  95.     {$ENDC}
  96. FUNCTION ExtendFileTypeList(originalTypeList: FileType; numberOriginalTypes: INTEGER; VAR extendedTypeList: FileType; VAR numberExtendedTypes: INTEGER): OSErr;
  97.     {$IFC USES68KINLINES}
  98.     INLINE $7009, $ABFC;
  99.     {$ENDC}
  100. FUNCTION CanDocBeOpened(targetDocument: FSSpec; appVRefNumHint: INTEGER; appSignature: OSType; nativeTypes: FileType; onlyNative: BOOLEAN; VAR howToOpen: DocOpenMethod; VAR howToTranslate: FileTranslationSpec): OSErr;
  101.     {$IFC USES68KINLINES}
  102.     INLINE $701E, $ABFC;
  103.     {$ENDC}
  104. FUNCTION GetFileTranslationPaths(VAR srcDocument: FSSpec; dstDocType: FileType; maxResultCount: INTEGER; resultBuffer: TranslationSpecArrayPtr): INTEGER;
  105.     {$IFC USES68KINLINES}
  106.     INLINE $7038, $ABFC;
  107.     {$ENDC}
  108. FUNCTION GetPathFromTranslationDialog(theDocument: FSSpec; theApplication: FSSpec; typeList: TypesBlockPtr; VAR howToOpen: DocOpenMethod; VAR howToTranslate: FileTranslationSpec): OSErr;
  109.     {$IFC USES68KINLINES}
  110.     INLINE $7037, $ABFC;
  111.     {$ENDC}
  112. FUNCTION TranslateFile(sourceDocument: FSSpec; destinationDocument: FSSpec; howToTranslate: FileTranslationSpec): OSErr;
  113.     {$IFC USES68KINLINES}
  114.     INLINE $700C, $ABFC;
  115.     {$ENDC}
  116. FUNCTION GetDocumentKindString(docVRefNum: INTEGER; docType: OSType; docCreator: OSType; kindString: Str63): OSErr;
  117.     {$IFC USES68KINLINES}
  118.     INLINE $7016, $ABFC;
  119.     {$ENDC}
  120. FUNCTION GetTranslationExtensionName(translationMethod: TranslationSpec; extensionName: Str31): OSErr;
  121.     {$IFC USES68KINLINES}
  122.     INLINE $7036, $ABFC;
  123.     {$ENDC}
  124. TYPE
  125.     GetScrapDataProcPtr = ProcPtr;  { FUNCTION (requestedFormat: ScrapType; dataH: Handle; srcDataGetterRefCon: UNIV Ptr): OSErr; }
  126.  
  127.  
  128. FUNCTION TranslateScrap(sourceDataGetter: GetScrapDataProcPtr; sourceDataGetterRefCon: UNIV Ptr; destinationFormat: ScrapType; destinationData: Handle; progressDialogID: INTEGER): OSErr;
  129.     {$IFC USES68KINLINES}
  130.     INLINE $700E, $ABFC;
  131.     {$ENDC}
  132. {$ENDC}
  133.  
  134. {$SETC UsingIncludes := TranslationIncludes}
  135.  
  136. {$ENDC} {__TRANSLATION__}
  137.  
  138. {$IFC NOT UsingIncludes}
  139.  END.
  140. {$ENDC}
  141.